Purpose

Calculate the size of text to be printed on a host printer.

Syntax

XPRINT TEXT SIZE txt$ To nWidth!, nHeight!

Function Form:

WidthVar!  = XPRINT(TEXT.SIZE.X, txt$)

HeightVar! = XPRINT(TEXT.SIZE.Y, txt$)

Remarks

This statement calculates the total size of the printed text, based upon the current font for the host printer. The sizes returned are specified in Page Units.

This allows you to easily calculate the appropriate print position, particularly when using a proportional font. If this statement is executed without a host printer attached, error 57 is generated.

See also

XPRINT CELL SIZE, XPRINT CHR SIZE, XPRINT SET FONT

Example

FUNCTION PBMAIN

 ' The following example draws the text both horizontally

 ' and vertically centered on the host printer page

 LOCAL x, y, w, h, w2, h2 AS LONG

 LOCAL sText AS STRING

 sText = "PowerBASIC"

 XPRINT ATTACH "Lexmark C750"

 XPRINT COLOR %BLUE, -2  ' blue text, clear background

 XPRINT FONT "Times New Roman", 18, 3  ' 18p, bold, italic

 XPRINT GET CLIENT TO w, h  ' get client size

 XPRINT TEXT SIZE sText TO w2, h2      ' get text size

 x = (w-w2) / 2                        ' centered x-pos

 y = (h-h2) / 2                        ' centered y-pos

 XPRINT SET POS (x, y)                 ' set position

 XPRINT sText                          ' draw the text

 XPRINT CLOSE

END FUNCTION